home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / bibcard_.lha / BibCard / Install < prev    next >
Text File  |  1995-08-14  |  2KB  |  106 lines
  1. ;
  2. ; install $VER 0.91 (14.8.1996)
  3. ;
  4. ; This is the installerscript for BibCard
  5. ;
  6.  
  7. (set @default-dest "ram:")
  8.  
  9. (set #bad-kick
  10.     (cat "You need at least kickstart v2.04 (V37)")
  11. )
  12.  
  13. (set #install-msg
  14. (cat "\n\nBibCard instalation script.\n\n"
  15.      "This script installs BibCard on your Amiga.\n\n"
  16.      "BibCard © 1995 Matthijs Luger\n"
  17.      "All rights reserved."
  18. ))
  19.  
  20. ;=============================================================================
  21. ; make sure we are running under a 2.04 ROM
  22.  
  23. (set kick_ver (/ (getversion) 65536))
  24.  
  25. (if (< kick_ver 37)
  26.     (abort #bad-kick)
  27. )
  28.  
  29. ;=============================================================================
  30.  
  31. (message #install-msg)
  32.  
  33. (welcome)
  34.  
  35. ;=============================================================================
  36.  
  37. (set destdir
  38.     (askdir
  39.         (prompt "Where should BibCard be installed?")
  40.         (help @askdir-help)
  41.         (default @default-dest)
  42.         (disk)
  43.     )
  44. )
  45.  
  46. (set @default-dest destdir)
  47.  
  48. ;=============================================================================
  49.  
  50. (set vernum (getversion "BibCard"))
  51. (set ver (/ vernum 65536))
  52. (set rev (- vernum (* ver 65536)))
  53.  
  54. (set ver_msg (cat "BibCard v" ver "." rev))
  55.  
  56. (message "\nCopy " ver_msg "\nto " destdir " ?")
  57.  
  58. (copylib
  59.     (prompt ("Copy BibCard to %s." destdir))
  60.     (help @copylib-help)
  61.     (source "BibCard")
  62.     (dest destdir)
  63.     (infos)
  64.     (confirm)
  65. )
  66.  
  67. (complete 50)
  68.  
  69. ;=============================================================================
  70.  
  71. (message "BibCard uses the TextField gadget\n"
  72.          "made by Mark Thomas.\n\n"
  73.          "Under v3.0+ it will be installed in\n"
  74.          "SYS:Classes/gadgets.\n\n"
  75.          "Under v2.0 and v2.1 it must\n"
  76.          "be installed in the same\n"
  77.          "directory as BibCard."
  78. )
  79.  
  80. ;=============================================================================
  81.  
  82. (if (< kick_ver 40)
  83.     (
  84.         (set destdir (tackon destdir "gadgets"))
  85.     )
  86.     (
  87.         (set destdir "SYS:Classes/gadgets")
  88.     )
  89. )
  90.  
  91. (message "\nInstall textfield.gadget.\n\n"
  92.          "textfield.gadget will\n"
  93.          "be installed in:\n\n" destdir
  94. )
  95.  
  96. (copylib
  97.         (prompt ("Copy textfield.gadget to %s." destdir))
  98.         (help @copylib-help)
  99.         (source "Gadgets/textfield.gadget")
  100.         (dest destdir)
  101.         (infos)
  102.         (confirm)
  103. )
  104. (complete 100)
  105.  
  106.